home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / TELETUBE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  5.4 KB  |  182 lines
  1. 10  'TELETUBE - Telescoping Aluminum Tubing - 20 JAN 94 rev. 12 OCT 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  COMMON EX$
  4. 40  CLS:KEY OFF
  5. 50  COLOR 7,0,1
  6. 60  UL$=STRING$(80,205)
  7. 70  PI=3.14159
  8. 80  DIM T(14,5)
  9. 90  R1=0.0625                                    'base radius
  10. 100  FOR Z=1 TO 14                               '14 stock diameters
  11. 110  R1=R1+0.0625                                 'radius increment
  12. 120  T(Z,1)=2*R1                                 'O.D.
  13. 130  T(Z,2)=0.058                                 'wall thickness
  14. 140  T(Z,3)=17                                   'Stub's gauge #
  15. 150  R2=R1-T(Z,2)                                'inside radius
  16. 160  T(Z,4)=2*R2                                 'I.D.
  17. 170  W=((PI*R1^2)-(PI*R2^2))*12*0.098             'lbs. per foot
  18. 180  T(Z,5)=W
  19. 190  NEXT Z
  20. 200  '
  21. 210  '.....start
  22. 220  CLS
  23. 230  COLOR 15,2
  24. 240  PRINT " TELESCOPING ALUMINUM TUBING ANTENNA ELEMENTS";
  25. 250  PRINT TAB(57);"by George Murphy VE3ERP ";
  26. 260  COLOR 1,0:PRINT STRING$(80,223);
  27. 270  COLOR 7,0
  28. 280  PRINT " Press number in < > to select:"
  29. 290  PRINT UL$;
  30. 300  PRINT "  < 1 >  DISPLAY table of standard tubing sizes"
  31. 310  PRINT "  < 2 >  Construction details - typical YAGI element"
  32. 320  PRINT "  < 3 >  Convert one-piece YAGI element to tapered sections"
  33. 330  PRINT UL$;
  34. 340  PRINT "  < 0 >  EXIT"
  35. 350  Z$=INKEY$
  36. 360  IF Z$="0"THEN CLS:RUN EX$
  37. 370  IF Z$="1"THEN 420
  38. 380  IF Z$="2"THEN 730
  39. 390  IF Z$="3"THEN CLS:CHAIN"yagtaper"
  40. 400  GOTO 350
  41. 410  '
  42. 420  '.....tubing table
  43. 430  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  44. 440  PRINT " STANDARD TELESCOPING TUBING SIZES "
  45. 450  PRINT " Alloy #6061-T6 Round Aluminum Tube in standard 12 ft. lengths."
  46. 460  PRINT UL$;
  47. 470  PRINT TAB(4);"O.D.";TAB(12);"I.D.";TAB(20);"Wall";
  48. 480  PRINT TAB(28);"Gauge";TAB(40);"Weight"
  49. 490  PRINT UL$;
  50. 500  FOR Z=1 TO 14
  51. 510  D=8                                'denominator
  52. 520  Y=INT(T(Z,1)):Y$=STR$(Y)           'integer inches
  53. 530  Y$=Y$+" ":IF Y=0 THEN Y$="   "     'integer inches
  54. 540  X=(T(Z,1)-Y)*8                     'fractional part
  55. 550  D1=D
  56. 560  IF X=0 THEN 610
  57. 570  IF X/2<>INT(X/2)THEN 590
  58. 580  D1=D1/2:X=X/2:GOTO 570
  59. 590  X$=RIGHT$(STR$(X),1)
  60. 600  D$=RIGHT$(STR$(D1),1)+CHR$(34)
  61. 610  PRINT Y$;
  62. 620  IF X=0 THEN PRINT CHR$(34);:GOTO 640
  63. 630  PRINT X$;"/";D$;                                            'O.D.
  64. 640  PRINT TAB(11);USING "#.###";T(Z,4);:PRINT CHR$(34);         'I.D.
  65. 650  PRINT TAB(20);".058"+CHR$(34);                              'wall
  66. 660  PRINT TAB(29);"#17";                                        'gauge
  67. 670  PRINT TAB(37);USING "#.###";T(Z,5);:PRINT " lb./ft."
  68. 680  NEXT Z
  69. 690  PRINT UL$;
  70. 700  GOSUB 1680
  71. 710  GOTO 210   'start
  72. 720  '
  73. 730  '.....design elements
  74. 740  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  75. 750  PRINT " Do you want (l)ight, (m)edium, or (h)eavy construction?  (l/m/h)"
  76. 760  Z$=INKEY$:IF Z$=""THEN 760        'base tubing size
  77. 770  IF Z$="l"THEN BT=0.375:GOTO 810
  78. 780  IF Z$="m"THEN BT=0.625:GOTO 810
  79. 790  IF Z$="h"THEN BT=0.875:GOTO 810
  80. 800  GOTO 760
  81. 810  INPUT " ENTER: Total overall length of element, in inches.....";EL
  82. 820  IF EL>72 THEN 890
  83. 830  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 13,4:BEEP
  84. 840  PRINT "ELEMENTS 72";CHR$(34);" LONG OR LESS CAN BE MADE FROM A SINGLE ";
  85. 850  PRINT "LENGTH OF 3/4";CHR$(34);" TUBING."
  86. 860  GOSUB 1680
  87. 870  GOTO 210   'start
  88. 880  '
  89. 890  TOT=0:WGT=0
  90. 900  N=1        'default value
  91. 910  N=N+2:D=EL/N:IF D<=66 THEN 930
  92. 920  GOTO 910
  93. 930  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  94. 940  PRINT TAB(16);"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND Exposed Length SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR";
  95. 950  PRINT TAB(55);"Size";TAB(68);"Weight (lbs.)";
  96. 960  PRINT UL$;
  97. 970  TU=(N-1)/2+1            'number of tubing sizes
  98. 980  'BT=.625                 'base tube size
  99. 990  CS=72                   'centre section
  100. 1000  MS=66                   'intermediate section
  101. 1010  ES=(EL-CS-(N-3)*MS)/2   'end section
  102. 1020  IF ES<=0 THEN N=N-2:D=EL/N:GOTO 970
  103. 1030  '
  104. 1040  LN=CSRLIN:LOCATE 3:PRINT N;"sections":LOCATE LN
  105. 1050  PRINT" 1 centre sect. @ 72";CHR$(34);TAB(40);USING "####.#";CS;
  106. 1060  PRINT CHR$(34);
  107. 1070  PRINT TAB(50);USING "#.###";BT+0.125*TU;:PRINT CHR$(34);" dia.tubing";
  108. 1080   FOR Y=1 TO 14
  109. 1090    IF T(Y,1)=BT+0.125*TU THEN 1110
  110. 1100   NEXT Y
  111. 1110  W=T(Y,5)*6:WGT=WGT+W
  112. 1120  PRINT TAB(71);USING "##.##";W
  113. 1130  TOT=TOT+CS
  114. 1140  '
  115. 1150  IF N=3 THEN 1280
  116. 1160  FOR Z=1 TO (N-3)/2
  117. 1170   PRINT " 2 mid sections @";STR$(MS);CHR$(34);" (1 each side)";
  118. 1180   PRINT TAB(40);USING"####.#";2*MS;:PRINT CHR$(34);
  119. 1190  PRINT TAB(50);USING "#.###";BT+0.125*(TU-Z);:PRINT CHR$(34);" dia.tubing";
  120. 1200   FOR Y=1 TO 14
  121. 1210    IF T(Y,1)=BT+0.125*(TU-Z) THEN 1230
  122. 1220   NEXT Y
  123. 1230  W=T(Y,5)*6*2:WGT=WGT+W
  124. 1240  PRINT TAB(71);USING "##.##";W
  125. 1250   TOT=TOT+2*MS
  126. 1260  NEXT Z
  127. 1270  '
  128. 1280  E$=STR$(INT(ES*100)/100)
  129. 1290  PRINT" 2 end sections projecting";E$;CHR$(34);" each";
  130. 1300  PRINT ;TAB(40);USING "####.#";2*ES;
  131. 1310  PRINT CHR$(34);
  132. 1320  PRINT TAB(50);USING "#.###";BT+0.125;:PRINT CHR$(34);" dia.tubing";
  133. 1330   FOR Y=1 TO 14
  134. 1340    IF T(Y,1)=BT+0.125 THEN 1360
  135. 1350   NEXT Y
  136. 1360  W=T(Y,5)*(ES+12)/12*2:WGT=WGT+W
  137. 1370  PRINT TAB(71);USING "##.##";W
  138. 1380  TOT=TOT+2*ES
  139. 1390  PRINT TAB(39);"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";TAB(69);"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND"
  140. 1400  PRINT " Overall length of element";
  141. 1410  PRINT TAB(40);USING "####.#";TOT;:PRINT CHR$(34);"  (";
  142. 1420  PRINT USING "###.##";TOT/12;:PRINT " ft.)";
  143. 1430  PRINT TAB(71);USING "##.#";WGT
  144. 1440  PRINT UL$;
  145. 1450  PRINT TAB(7);
  146. 1460  PRINT "All tubing is .058";CHR$(34);" wall #6061-T6 round aluminum tubing";
  147. 1470  PRINT " available in"
  148. 1480  PRINT TAB(7);
  149. 1490  PRINT "standard 12 foot lengths."
  150. 1500  PRINT
  151. 1510  PRINT TAB(7);
  152. 1520  PRINT "All tubing sections, except end sections, are 72 inches long,"
  153. 1530  PRINT TAB(7);
  154. 1540  PRINT "(standard 12' length cut in half)."
  155. 1550  PRINT
  156. 1560  IF N=3 THEN 1620
  157. 1570  PRINT TAB(7);
  158. 1580  PRINT "Mid sections are 72 inches long with 6 inches inserted into end of"
  159. 1590  PRINT TAB(7);
  160. 1600  PRINT "adjacent tube, leaving 66 inches projecting."
  161. 1610  PRINT
  162. 1620  PRINT TAB(7);
  163. 1630  PRINT "End sections should be cut about 8 to 12 inches longer than the "
  164. 1640  PRINT TAB(7);
  165. 1650  PRINT "projecting dimension shown to allow for final tuning adjustments."
  166. 1660  GOSUB 1690
  167. 1670  GOTO 210   'start
  168. 1680  '
  169. 1690  'HARDCOPY
  170. 1700  GOSUB 1810:LOCATE 25,2:COLOR 14,6
  171. 1710  PRINT " Press 1 to print screen, 2 to print screen & ";
  172. 1720  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  173. 1730  Z$=INKEY$:IF Z$="3"THEN GOSUB 1810:RETURN
  174. 1740  IF Z$="1"OR Z$="2"THEN GOSUB 1810:GOTO 1760
  175. 1750  GOTO 1730
  176. 1760  FOR QX=1 TO 24:FOR QY=1 TO 80
  177. 1770  LPRINT CHR$(SCREEN(QX,QY));
  178. 1780  NEXT QY:NEXT QX
  179. 1790  IF Z$="2"THEN LPRINT CHR$(12)
  180. 1800  GOTO 1700
  181. 1810  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  182.